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i fl fo**!™’ * ^rlption J 

nippl l^ Ifl ft compilable act of ^5 3-exp^ecion-deflrrad 
functions which aiGplify idscbrcia oxproc alone* The exp ration* 
which ere appropriate for c ltroUf:/ ftre toflrrtd recursively as 
follows! 1 

p ** nil atom**, fixed and floating point numbers 
<t « all axpreoclouii of the forai 

{plSJS, 0^, fl^j, I*»t ^ _■■'■' 

{PKDc^P, 0£, s^f *■** 

{MIMJS • a), ■/;'■; ; '; r ; 1 .•/ 

ffiECXP .6), :,-.■ !>"./ ’. .’> 

fDIVIES, B^ f Cg}* 

(P OWES, O^, Eg), 

(SUBT, D i# s 2 ) f 

where c, a^ r 0 ^ ^eFUQ* 

gltrfllifp is * function, not ft pseudo-function, that 10, the 
13. ct structure of an expression is not modified by oireglj^ , 
aitrnllfy tfjfflo about 6000 words of free storage whan stor&d ss t” 
C-exprotalon and about 9000 words When compiled- It t&kaij about 
5 nrinutea to read esll the functions into the JOS' trains the online 
card reader, and about t minutes from tape* 

2* Orderinfi 

It Is possible for two expressiona having the arjco algebraic 
structure to be represented by different list structures, o* 3* 

(PLUS £ X) and (PLCtfl X 2)* This creates a norioun problea, for a 
LISP function to recognise equality of algebraic form would bo 
quite complex and tlrea conaunilng, l^iarcforo the simplification 
routined une the device of o^pnicAlly ordering b! 1 the algebraic 
expressions which they oraftte, Kivra it is possible to recognise 
equality of fora with e qual * \ 

r 5fte ordering schema used provides ft hierarchy of S-oxpres sicna 
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7* perform nil tiro above a inrplifl flatten?: on tor^c oflourring 
ift the deriomlnctor if tho trgumttit sjontalrjj rdVIEE^D txA RECIP'o*. 


jvJinrlnfjicJ Will* : ■"'"*** ■■■■■•'*. 

i s ah&ttss the clsn of x if it in a number ; 

2* thro* sitray the HUTUS If X ia of the form (KI1SU5 - E) 
rover 00 tba-ordor of SvE7 expressions* . 

. , ; i s ■ ■ ■ 

J ' b^rej> [x] wills 

. ' 1* divide 1*0 by jc If x la a number ' 

2* yield oonsfHnraSjiJiinrapUn if x 1 b (ICLKUS * E) 

3* throw sway Initial RZCIP* 

4, raVersa tha order of JJIVTSS exprooslons* keeping maseri- 
dal terca (if present) in the macorator 

5* amplify each tero in PFXCT osprooslono separately* 


■ sjffi3Jly fo«3fl ■ Binprd[liot[x;oiErop[yJ]] 


gfcyswr ibjel willi v .* 

1* yield 1 if o is 0* ,■ r , ' 

2. yield 0 if b ia 0. 

3* yield b if e is i, 

4* perform the prepar nuraorloal operation if iiss^tnary 
nmfrara are not Involved* o« g* (*i)3 - -1, (i) 2 ** - 1, . 

{-l) 2 * ft - (POWER -4 a.t}„ ’ • ■• • 

5- yield oonoLltSCiPj'fli'.rp'^rrlEje]] If b *» (RECI? E)s 

£» simplify o^ch tern individually in PRDG2 or UCTHE wsprs-EztanB* 

7* treat a sycbolie minus Bign if possible (if e is an integer), 

8* multiply exponents If b is itself ft POWER expression* 

i ‘ r 1 ‘ ' ' '1 " ■ ■ 

Glm-stib Cxiyl * aiDplfl[listIx;BiEain(y] j 3 

4* Unlrm j SjTFPllfy ■ 


It ia quite aoceptthlo to Use the Btibfunofcion£ BiEpleEJ]* 
Bl£pii3[i3!, eiraninCx] f etc* separately, provided that the &rgu- 
rasontB of those furjotiens have been cieplifiad* In fast this la 
fcdviflrJbla, for if one lots the bo ftinatlonfi put fcho oonnectlvea 
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gata the obnolute vrJ.iifl of fixed or rloatins point 
nurcbors, If x is not a number an error Will result* 

di D rp [x;y] is primarily for flaccid point numbers* If x la 
dlvitable by y or x is a floating point number it la T; ? other¬ 
wise* If either x or y la not a nutter tn error will occur* 

ffcdEx;y] io for fixed point numbers* It finds the greatest 
cocoon di vicar if x./t 0 and y ft 0, and x and y are fixed point 
numbers,, If x ** 0 flca fojy) » y p if y - 0 gcdtxjyJ m x, 

Bppeind lf^fft] is tho aanse as mapson , except it appends re¬ 
sultant lists inutesd of nccnc -lng thorn* 

rKnrnfl[f;pI p la & predicate In ono variable* rorprnfl la 
T if p[x ± J is I for every x^tf {£ « (x^x^xy ,,,3^)), 

mqtfcfrlfl Eftl is an output function - it turns tho expression 
e into a Hat which will print out like Fortran, Ihis la for 
convenience in reeding the output, 

Krcntvr lxjy] gives a unique ordering of atomic symbols* ■ If 
x find y ero atoms* ^reater lx;yj - T if y ocoupieti a hasher storage 
location that 

l^r^rExjy] order a S-es^pruaslona uniquely* The relation ba¬ 
tman the different possible elaments x and y 1st 
MIL ^ number < at ora <iint* 

The'"order among numbers is by increasing magnitude, the atoms 
are ordered by greater (eqo above), and lists are ordered accord¬ 
ing to the first element," or by succeeding elements In the case 
when aarix] - oar[yJ f and by length if eorro spending elements Era 
. equal, 

order “ orders the top level of the list l by the scheme 
given above- ,- ■ 

Exusple: order [ (l (a,B,C) (a) (A f B) 3 MIL 
* (KU* 3 4 X (A) <A,B) (A>,C)) 
iRn.ord [x;s] recoplos the top level of B p inserting x into 

the proper position to yield an ordered lint, 

«■ \ 

All subfunotloiuk have been tested on a United notoer of 
trial ciuies* Ifce connective functions era Icnc^n to work on a 
large class of expressions, but sene bugs may ronain. Please 
bring toy information about bugs to S6-SS&, 



